/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / lisp-mnt.elc.z / lisp-mnt.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 53 75 6e 20 | 4d 61 72 20 20 33 20 30 | on Sun |Mar  3 0|
|00000040| 34 3a 33 30 3a 35 31 20 | 31 39 39 36 0a 3b 3b 3b |4:30:51 |1996.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 6c 69 73 70 2d 6d | 6e 74 2e 65 6c 0a 3b 3b |p/lisp-m|nt.el.;;|
|00000080| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|00000090| 31 39 2e 33 30 2e 39 31 | 2e 32 2e 0a 3b 3b 3b 20 |19.30.91|.2..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 46 53 46 20 32 2e 31 | 30 0a 3b 3b 3b 20 6f 70 | FSF 2.1|0.;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000e0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|000000f0| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000100| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000110| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000120| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000130| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000140| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000150| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000160| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|00000170| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|00000180| 73 69 6f 6e 20 22 31 39 | 2e 32 39 22 29 29 29 0a |sion "19|.29"))).|
|00000190| 20 20 20 20 28 65 72 72 | 6f 72 20 22 60 6c 69 73 |    (err|or "`lis|
|000001a0| 70 2d 6d 6e 74 2e 65 6c | 27 20 77 61 73 20 63 6f |p-mnt.el|' was co|
|000001b0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001c0| 20 31 39 2e 32 39 20 6f | 72 20 6c 61 74 65 72 22 | 19.29 o|r later"|
|000001d0| 29 29 0a 0a 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |))...(by|te-code |
|000001e0| 22 c0 c1 21 88 c0 c2 21 | 87 22 20 5b 72 65 71 75 |"..!...!|." [requ|
|000001f0| 69 72 65 20 70 69 63 74 | 75 72 65 20 65 6d 61 63 |ire pict|ure emac|
|00000200| 73 62 75 67 5d 20 32 29 | 0a 23 40 33 33 38 20 50 |sbug] 2)|.#@338 P|
|00000210| 72 65 66 69 78 20 74 68 | 61 74 20 69 73 20 69 67 |refix th|at is ig|
|00000220| 6e 6f 72 65 64 20 62 65 | 66 6f 72 65 20 74 68 65 |nored be|fore the|
|00000230| 20 74 61 67 2e 0a 46 6f | 72 20 65 78 61 6d 70 6c | tag..Fo|r exampl|
|00000240| 65 2c 20 79 6f 75 20 63 | 61 6e 20 77 72 69 74 65 |e, you c|an write|
|00000250| 20 74 68 65 20 31 73 74 | 20 6c 69 6e 65 20 73 79 | the 1st| line sy|
|00000260| 6e 6f 70 73 69 73 20 73 | 74 72 69 6e 67 20 61 6e |nopsis s|tring an|
|00000270| 64 20 68 65 61 64 65 72 | 73 20 6c 69 6b 65 20 74 |d header|s like t|
|00000280| 68 69 73 0a 69 6e 20 79 | 6f 75 72 20 4c 69 73 70 |his.in y|our Lisp|
|00000290| 20 70 61 63 6b 61 67 65 | 3a 0a 0a 20 20 20 3b 3b | package|:..   ;;|
|000002a0| 20 40 28 23 29 20 70 61 | 63 6b 61 67 65 2e 65 6c | @(#) pa|ckage.el|
|000002b0| 20 2d 2d 20 70 61 63 61 | 6b 67 65 20 64 65 73 63 | -- paca|kge desc|
|000002c0| 72 69 70 74 69 6f 6e 0a | 20 20 20 3b 3b 0a 20 20 |ription.|   ;;.  |
|000002d0| 20 3b 3b 20 40 28 23 29 | 20 24 4d 61 69 6e 74 61 | ;; @(#)| $Mainta|
|000002e0| 69 6e 65 72 3a 20 20 20 | 50 65 72 73 6f 6e 20 46 |iner:   |Person F|
|000002f0| 6f 6f 20 42 61 72 20 24 | 0a 0a 54 68 65 20 40 28 |oo Bar $|..The @(|
|00000300| 23 29 20 63 6f 6e 73 74 | 72 75 63 74 20 69 73 20 |#) const|ruct is |
|00000310| 75 73 65 64 20 62 79 20 | 75 6e 69 78 20 77 68 61 |used by |unix wha|
|00000320| 74 28 31 29 20 61 6e 64 | 0a 74 68 65 6e 20 24 69 |t(1) and|.then $i|
|00000330| 64 65 6e 74 69 66 69 65 | 72 3a 20 64 6f 63 20 73 |dentifie|r: doc s|
|00000340| 74 72 69 6e 67 20 24 20 | 69 73 20 75 73 65 64 20 |tring $ |is used |
|00000350| 62 79 20 47 4e 55 20 69 | 64 65 6e 74 28 31 29 1f |by GNU i|dent(1).|
|00000360| 0a 28 64 65 66 76 61 72 | 20 6c 6d 2d 68 65 61 64 |.(defvar| lm-head|
|00000370| 65 72 2d 70 72 65 66 69 | 78 20 22 5e 3b 3b 2a 5b |er-prefi|x "^;;*[|
|00000380| 20 09 5d 2b 5c 5c 28 40 | 28 23 29 5c 5c 29 3f 5b | .]+\\(@|(#)\\)?[|
|00000390| 20 09 5d 2a 5c 5c 28 5b | 24 5d 5c 5c 29 3f 22 20 | .]*\\([|$]\\)?" |
|000003a0| 28 23 24 20 2e 20 35 32 | 37 29 29 0a 23 40 34 33 |(#$ . 52|7)).#@43|
|000003b0| 20 43 6f 6c 75 6d 6e 20 | 75 73 65 64 20 66 6f 72 | Column |used for|
|000003c0| 20 70 6c 61 63 69 6e 67 | 20 66 6f 72 6d 61 74 74 | placing| formatt|
|000003d0| 65 64 20 6f 75 74 70 75 | 74 2e 1f 0a 28 64 65 66 |ed outpu|t...(def|
|000003e0| 76 61 72 20 6c 6d 2d 63 | 6f 6d 6d 65 6e 74 2d 63 |var lm-c|omment-c|
|000003f0| 6f 6c 75 6d 6e 20 31 36 | 20 28 23 24 20 2e 20 39 |olumn 16| (#$ . 9|
|00000400| 34 35 29 29 0a 23 40 35 | 34 20 52 65 67 65 78 70 |45)).#@5|4 Regexp|
|00000410| 20 77 68 69 63 68 20 6d | 61 74 63 68 65 73 20 73 | which m|atches s|
|00000420| 74 61 72 74 20 6f 66 20 | 64 6f 63 75 6d 65 6e 74 |tart of |document|
|00000430| 61 74 69 6f 6e 20 73 65 | 63 74 69 6f 6e 2e 1f 0a |ation se|ction...|
|00000440| 28 64 65 66 76 61 72 20 | 6c 6d 2d 63 6f 6d 6d 65 |(defvar |lm-comme|
|00000450| 6e 74 61 72 79 2d 68 65 | 61 64 65 72 20 22 43 6f |ntary-he|ader "Co|
|00000460| 6d 6d 65 6e 74 61 72 79 | 5c 5c 7c 44 6f 63 75 6d |mmentary|\\|Docum|
|00000470| 65 6e 74 61 74 69 6f 6e | 22 20 28 23 24 20 2e 20 |entation|" (#$ . |
|00000480| 31 30 33 34 29 29 0a 23 | 40 35 33 20 52 65 67 65 |1034)).#|@53 Rege|
|00000490| 78 70 20 77 68 69 63 68 | 20 6d 61 74 63 68 65 73 |xp which| matches|
|000004a0| 20 74 68 65 20 73 74 61 | 72 74 20 6f 66 20 63 6f | the sta|rt of co|
|000004b0| 64 65 20 6c 6f 67 20 73 | 65 63 74 69 6f 6e 2e 1f |de log s|ection..|
|000004c0| 0a 28 64 65 66 76 61 72 | 20 6c 6d 2d 68 69 73 74 |.(defvar| lm-hist|
|000004d0| 6f 72 79 2d 68 65 61 64 | 65 72 20 22 43 68 61 6e |ory-head|er "Chan|
|000004e0| 67 65 20 4c 6f 67 5c 5c | 7c 48 69 73 74 6f 72 79 |ge Log\\||History|
|000004f0| 22 20 28 23 24 20 2e 20 | 31 31 36 34 29 29 0a 23 |" (#$ . |1164)).#|
|00000500| 40 31 32 33 20 52 65 74 | 75 72 6e 73 20 72 65 67 |@123 Ret|urns reg|
|00000510| 65 78 70 20 66 6f 72 20 | 6d 61 74 63 68 69 6e 67 |exp for |matching|
|00000520| 20 48 45 41 44 45 52 2e | 0a 49 66 20 63 61 6c 6c | HEADER.|.If call|
|00000530| 65 64 20 77 69 74 68 20 | 6f 70 74 69 6f 6e 61 6c |ed with |optional|
|00000540| 20 4d 4f 44 45 20 61 6e | 64 20 77 69 74 68 20 76 | MODE an|d with v|
|00000550| 61 6c 75 65 20 60 73 65 | 63 74 69 6f 6e 27 2c 0a |alue `se|ction',.|
|00000560| 72 65 74 75 72 6e 20 73 | 65 63 74 69 6f 6e 20 72 |return s|ection r|
|00000570| 65 67 65 78 70 20 69 6e | 73 74 65 61 64 2e 1f 0a |egexp in|stead...|
|00000580| 28 64 65 66 61 6c 69 61 | 73 20 27 6c 6d 2d 67 65 |(defalia|s 'lm-ge|
|00000590| 74 2d 68 65 61 64 65 72 | 2d 72 65 20 23 5b 28 68 |t-header|-re #[(h|
|000005a0| 65 61 64 65 72 20 26 6f | 70 74 69 6f 6e 61 6c 20 |eader &o|ptional |
|000005b0| 6d 6f 64 65 29 20 22 08 | c1 3d 83 0b 00 c2 0b c4 |mode) ".|.=......|
|000005c0| 51 87 0d 0b c6 51 87 22 | 20 5b 6d 6f 64 65 20 73 |Q....Q."| [mode s|
|000005d0| 65 63 74 69 6f 6e 20 22 | 5e 3b 3b 3b 3b 2a 20 22 |ection "|^;;;;* "|
|000005e0| 20 68 65 61 64 65 72 20 | 22 3a 5b 20 09 5d 2a 24 | header |":[ .]*$|
|000005f0| 22 20 6c 6d 2d 68 65 61 | 64 65 72 2d 70 72 65 66 |" lm-hea|der-pref|
|00000600| 69 78 20 22 3a 5b 20 09 | 5d 2a 22 5d 20 33 20 28 |ix ":[ .|]*"] 3 (|
|00000610| 23 24 20 2e 20 31 32 38 | 35 29 5d 29 0a 28 70 75 |#$ . 128|5)]).(pu|
|00000620| 74 20 28 71 75 6f 74 65 | 20 6c 6d 2d 67 65 74 2d |t (quote| lm-get-|
|00000630| 68 65 61 64 65 72 2d 72 | 65 29 20 28 71 75 6f 74 |header-r|e) (quot|
|00000640| 65 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 72 |e byte-o|ptimizer|
|00000650| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 63 6f |) (quote| byte-co|
|00000660| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|00000670| 61 6e 64 29 29 0a 23 40 | 35 32 20 52 65 74 75 72 |and)).#@|52 Retur|
|00000680| 6e 73 20 70 61 63 6b 61 | 67 65 20 6e 61 6d 65 20 |ns packa|ge name |
|00000690| 62 79 20 6c 6f 6f 6b 69 | 6e 67 20 61 74 20 74 68 |by looki|ng at th|
|000006a0| 65 20 66 69 72 73 74 20 | 6c 69 6e 65 2e 1f 0a 28 |e first |line...(|
|000006b0| 64 65 66 61 6c 69 61 73 | 20 27 6c 6d 2d 67 65 74 |defalias| 'lm-get|
|000006c0| 2d 70 61 63 6b 61 67 65 | 2d 6e 61 6d 65 20 23 5b |-package|-name #[|
|000006d0| 6e 69 6c 20 22 8a 65 62 | 88 c0 09 b0 01 21 85 1e |nil ".eb|.....!..|
|000006e0| 00 c2 95 62 88 c0 c3 21 | 88 c4 95 85 1e 00 c4 94 |...b...!|........|
|000006f0| c4 95 7b 29 87 22 20 5b | 6c 6f 6f 6b 69 6e 67 2d |..{)." [|looking-|
|00000700| 61 74 20 6c 6d 2d 68 65 | 61 64 65 72 2d 70 72 65 |at lm-he|ader-pre|
|00000710| 66 69 78 20 30 20 22 5c | 5c 28 5b 5e 09 20 5d 2b |fix 0 "\|\([^. ]+|
|00000720| 5c 5c 29 22 20 31 5d 20 | 32 20 28 23 24 20 2e 20 |\\)" 1] |2 (#$ . |
|00000730| 31 36 35 39 29 5d 29 0a | 28 70 75 74 20 28 71 75 |1659)]).|(put (qu|
|00000740| 6f 74 65 20 6c 6d 2d 67 | 65 74 2d 70 61 63 6b 61 |ote lm-g|et-packa|
|00000750| 67 65 2d 6e 61 6d 65 29 | 20 28 71 75 6f 74 65 20 |ge-name)| (quote |
|00000760| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 72 29 20 |byte-opt|imizer) |
|00000770| 28 71 75 6f 74 65 20 62 | 79 74 65 2d 63 6f 6d 70 |(quote b|yte-comp|
|00000780| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|00000790| 64 29 29 0a 23 40 31 37 | 33 20 52 65 74 75 72 6e |d)).#@17|3 Return|
|000007a0| 20 74 68 65 20 62 75 66 | 66 65 72 20 6c 6f 63 61 | the buf|fer loca|
|000007b0| 74 69 6f 6e 20 6f 66 20 | 61 20 67 69 76 65 6e 20 |tion of |a given |
|000007c0| 73 65 63 74 69 6f 6e 20 | 73 74 61 72 74 20 6d 61 |section |start ma|
|000007d0| 72 6b 65 72 2e 0a 54 68 | 65 20 48 45 41 44 45 52 |rker..Th|e HEADER|
|000007e0| 20 69 73 20 74 68 65 20 | 73 65 63 74 69 6f 6e 20 | is the |section |
|000007f0| 6d 61 72 6b 20 73 74 72 | 69 6e 67 20 74 6f 20 73 |mark str|ing to s|
|00000800| 65 61 72 63 68 20 66 6f | 72 2e 0a 49 66 20 41 46 |earch fo|r..If AF|
|00000810| 54 45 52 20 69 73 20 6e | 6f 6e 2d 6e 69 6c 2c 20 |TER is n|on-nil, |
|00000820| 72 65 74 75 72 6e 20 74 | 68 65 20 6c 6f 63 61 74 |return t|he locat|
|00000830| 69 6f 6e 20 6f 66 20 74 | 68 65 20 6e 65 78 74 20 |ion of t|he next |
|00000840| 6c 69 6e 65 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |line...(|defalias|
|00000850| 20 27 6c 6d 2d 73 65 63 | 74 69 6f 6e 2d 6d 61 72 | 'lm-sec|tion-mar|
|00000860| 6b 20 23 5b 28 68 65 61 | 64 65 72 20 26 6f 70 74 |k #[(hea|der &opt|
|00000870| 69 6f 6e 61 6c 20 61 66 | 74 65 72 29 20 22 8a c0 |ional af|ter) "..|
|00000880| 19 65 62 88 c2 0b c4 1d | 1b 0d c4 3d 83 18 00 c6 |.eb.....|...=....|
|00000890| 0b c7 51 82 1d 00 0e 08 | 0b c9 51 2a ca c0 23 85 |..Q.....|..Q*..#.|
|000008a0| 30 00 cb 79 88 0e 5c 66 | 83 2f 00 cd 79 88 60 2a |0..y..\f|./..y.`*|
|000008b0| 87 22 20 5b 74 20 63 61 | 73 65 2d 66 6f 6c 64 2d |." [t ca|se-fold-|
|000008c0| 73 65 61 72 63 68 20 72 | 65 2d 73 65 61 72 63 68 |search r|e-search|
|000008d0| 2d 66 6f 72 77 61 72 64 | 20 68 65 61 64 65 72 20 |-forward| header |
|000008e0| 73 65 63 74 69 6f 6e 20 | 6d 6f 64 65 20 22 5e 3b |section |mode "^;|
|000008f0| 3b 3b 3b 2a 20 22 20 22 | 3a 5b 20 09 5d 2a 24 22 |;;;* " "|:[ .]*$"|
|00000900| 20 6c 6d 2d 68 65 61 64 | 65 72 2d 70 72 65 66 69 | lm-head|er-prefi|
|00000910| 78 20 22 3a 5b 20 09 5d | 2a 22 20 6e 69 6c 20 30 |x ":[ .]|*" nil 0|
|00000920| 20 61 66 74 65 72 20 31 | 5d 20 34 20 28 23 24 20 | after 1|] 4 (#$ |
|00000930| 2e 20 31 39 34 36 29 5d | 29 0a 23 40 35 36 20 52 |. 1946)]|).#@56 R|
|00000940| 65 74 75 72 6e 20 74 68 | 65 20 62 75 66 66 65 72 |eturn th|e buffer|
|00000950| 20 6c 6f 63 61 74 69 6f | 6e 20 6f 66 20 74 68 65 | locatio|n of the|
|00000960| 20 60 43 6f 64 65 27 20 | 73 74 61 72 74 20 6d 61 | `Code' |start ma|
|00000970| 72 6b 65 72 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |rker...(|defalias|
|00000980| 20 27 6c 6d 2d 63 6f 64 | 65 2d 6d 61 72 6b 20 23 | 'lm-cod|e-mark #|
|00000990| 5b 6e 69 6c 20 22 c0 c1 | 21 87 22 20 5b 6c 6d 2d |[nil "..|!." [lm-|
|000009a0| 73 65 63 74 69 6f 6e 2d | 6d 61 72 6b 20 22 43 6f |section-|mark "Co|
|000009b0| 64 65 22 5d 20 32 20 28 | 23 24 20 2e 20 32 33 36 |de"] 2 (|#$ . 236|
|000009c0| 37 29 5d 29 0a 28 70 75 | 74 20 28 71 75 6f 74 65 |7)]).(pu|t (quote|
|000009d0| 20 6c 6d 2d 63 6f 64 65 | 2d 6d 61 72 6b 29 20 28 | lm-code|-mark) (|
|000009e0| 71 75 6f 74 65 20 62 79 | 74 65 2d 6f 70 74 69 6d |quote by|te-optim|
|000009f0| 69 7a 65 72 29 20 28 71 | 75 6f 74 65 20 62 79 74 |izer) (q|uote byt|
|00000a00| 65 2d 63 6f 6d 70 69 6c | 65 2d 69 6e 6c 69 6e 65 |e-compil|e-inline|
|00000a10| 2d 65 78 70 61 6e 64 29 | 29 0a 23 40 36 32 20 52 |-expand)|).#@62 R|
|00000a20| 65 74 75 72 6e 20 74 68 | 65 20 62 75 66 66 65 72 |eturn th|e buffer|
|00000a30| 20 6c 6f 63 61 74 69 6f | 6e 20 6f 66 20 74 68 65 | locatio|n of the|
|00000a40| 20 60 43 6f 6d 6d 65 6e | 74 61 72 79 27 20 73 74 | `Commen|tary' st|
|00000a50| 61 72 74 20 6d 61 72 6b | 65 72 2e 1f 0a 28 64 65 |art mark|er...(de|
|00000a60| 66 61 6c 69 61 73 20 27 | 6c 6d 2d 63 6f 6d 6d 65 |falias '|lm-comme|
|00000a70| 6e 74 61 72 79 2d 6d 61 | 72 6b 20 23 5b 6e 69 6c |ntary-ma|rk #[nil|
|00000a80| 20 22 c0 09 21 87 22 20 | 5b 6c 6d 2d 73 65 63 74 | "..!." |[lm-sect|
|00000a90| 69 6f 6e 2d 6d 61 72 6b | 20 6c 6d 2d 63 6f 6d 6d |ion-mark| lm-comm|
|00000aa0| 65 6e 74 61 72 79 2d 68 | 65 61 64 65 72 5d 20 32 |entary-h|eader] 2|
|00000ab0| 20 28 23 24 20 2e 20 32 | 35 39 31 29 5d 29 0a 28 | (#$ . 2|591)]).(|
|00000ac0| 70 75 74 20 28 71 75 6f | 74 65 20 6c 6d 2d 63 6f |put (quo|te lm-co|
|00000ad0| 6d 6d 65 6e 74 61 72 79 | 2d 6d 61 72 6b 29 20 28 |mmentary|-mark) (|
|00000ae0| 71 75 6f 74 65 20 62 79 | 74 65 2d 6f 70 74 69 6d |quote by|te-optim|
|00000af0| 69 7a 65 72 29 20 28 71 | 75 6f 74 65 20 62 79 74 |izer) (q|uote byt|
|00000b00| 65 2d 63 6f 6d 70 69 6c | 65 2d 69 6e 6c 69 6e 65 |e-compil|e-inline|
|00000b10| 2d 65 78 70 61 6e 64 29 | 29 0a 23 40 35 39 20 52 |-expand)|).#@59 R|
|00000b20| 65 74 75 72 6e 20 74 68 | 65 20 62 75 66 66 65 72 |eturn th|e buffer|
|00000b30| 20 6c 6f 63 61 74 69 6f | 6e 20 6f 66 20 74 68 65 | locatio|n of the|
|00000b40| 20 60 48 69 73 74 6f 72 | 79 27 20 73 74 61 72 74 | `Histor|y' start|
|00000b50| 20 6d 61 72 6b 65 72 2e | 1f 0a 28 64 65 66 61 6c | marker.|..(defal|
|00000b60| 69 61 73 20 27 6c 6d 2d | 68 69 73 74 6f 72 79 2d |ias 'lm-|history-|
|00000b70| 6d 61 72 6b 20 23 5b 6e | 69 6c 20 22 c0 09 21 87 |mark #[n|il "..!.|
|00000b80| 22 20 5b 6c 6d 2d 73 65 | 63 74 69 6f 6e 2d 6d 61 |" [lm-se|ction-ma|
|00000b90| 72 6b 20 6c 6d 2d 68 69 | 73 74 6f 72 79 2d 68 65 |rk lm-hi|story-he|
|00000ba0| 61 64 65 72 5d 20 32 20 | 28 23 24 20 2e 20 32 38 |ader] 2 |(#$ . 28|
|00000bb0| 34 37 29 5d 29 0a 28 70 | 75 74 20 28 71 75 6f 74 |47)]).(p|ut (quot|
|00000bc0| 65 20 6c 6d 2d 68 69 73 | 74 6f 72 79 2d 6d 61 72 |e lm-his|tory-mar|
|00000bd0| 6b 29 20 28 71 75 6f 74 | 65 20 62 79 74 65 2d 6f |k) (quot|e byte-o|
|00000be0| 70 74 69 6d 69 7a 65 72 | 29 20 28 71 75 6f 74 65 |ptimizer|) (quote|
|00000bf0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|00000c00| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 29 29 0a 23 40 |line-exp|and)).#@|
|00000c10| 34 39 20 52 65 74 75 72 | 6e 20 74 68 65 20 63 6f |49 Retur|n the co|
|00000c20| 6e 74 65 6e 74 73 20 6f | 66 20 74 68 65 20 68 65 |ntents o|f the he|
|00000c30| 61 64 65 72 20 6e 61 6d | 65 64 20 48 45 41 44 45 |ader nam|ed HEADE|
|00000c40| 52 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6c |R...(def|alias 'l|
|00000c50| 6d 2d 68 65 61 64 65 72 | 20 23 5b 28 68 65 61 64 |m-header| #[(head|
|00000c60| 65 72 29 20 22 65 62 88 | c0 19 c2 0b c4 1d 1b 0d |er) "eb.|........|
|00000c70| c6 3d 83 17 00 c7 0b c8 | 51 82 1c 00 0e 09 0b ca |.=......|Q.......|
|00000c80| 51 2a cb cc 21 c0 23 85 | 35 00 cd ce 21 85 35 00 |Q*..!.#.|5...!.5.|
|00000c90| cf 95 85 35 00 cf 94 cf | 95 7b 29 87 22 20 5b 74 |...5....|.{)." [t|
|00000ca0| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|00000cb0| 68 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |h re-sea|rch-forw|
|00000cc0| 61 72 64 20 68 65 61 64 | 65 72 20 6e 69 6c 20 6d |ard head|er nil m|
|00000cd0| 6f 64 65 20 73 65 63 74 | 69 6f 6e 20 22 5e 3b 3b |ode sect|ion "^;;|
|00000ce0| 3b 3b 2a 20 22 20 22 3a | 5b 20 09 5d 2a 24 22 20 |;;* " ":|[ .]*$" |
|00000cf0| 6c 6d 2d 68 65 61 64 65 | 72 2d 70 72 65 66 69 78 |lm-heade|r-prefix|
|00000d00| 20 22 3a 5b 20 09 5d 2a | 22 20 6c 6d 2d 73 65 63 | ":[ .]*|" lm-sec|
|00000d10| 74 69 6f 6e 2d 6d 61 72 | 6b 20 22 43 6f 64 65 22 |tion-mar|k "Code"|
|00000d20| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 5c 5c 28 | looking|-at "\\(|
|00000d30| 5b 5e 24 5c 6e 5d 2b 5c | 5c 29 22 20 31 5d 20 34 |[^$\n]+\|\)" 1] 4|
|00000d40| 20 28 23 24 20 2e 20 33 | 30 39 31 29 5d 29 0a 23 | (#$ . 3|091)]).#|
|00000d50| 40 31 32 39 20 52 65 74 | 75 72 6e 20 74 68 65 20 |@129 Ret|urn the |
|00000d60| 63 6f 6e 74 65 6e 74 73 | 20 6f 66 20 74 68 65 20 |contents| of the |
|00000d70| 68 65 61 64 65 72 20 6e | 61 6d 65 64 20 48 45 41 |header n|amed HEA|
|00000d80| 44 45 52 2c 20 77 69 74 | 68 20 63 6f 6e 74 69 6e |DER, wit|h contin|
|00000d90| 75 61 74 69 6f 6e 20 6c | 69 6e 65 73 2e 0a 54 68 |uation l|ines..Th|
|00000da0| 65 20 72 65 74 75 72 6e | 65 64 20 76 61 6c 75 65 |e return|ed value|
|00000db0| 20 69 73 20 61 20 6c 69 | 73 74 20 6f 66 20 73 74 | is a li|st of st|
|00000dc0| 72 69 6e 67 73 2c 20 6f | 6e 65 20 70 65 72 20 6c |rings, o|ne per l|
|00000dd0| 69 6e 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ine...(d|efalias |
|00000de0| 27 6c 6d 2d 68 65 61 64 | 65 72 2d 6d 75 6c 74 69 |'lm-head|er-multi|
|00000df0| 6c 69 6e 65 20 23 5b 28 | 68 65 61 64 65 72 29 20 |line #[(|header) |
|00000e00| 22 8a 65 62 88 c0 09 21 | 89 1a 83 37 00 5c 6e 43 |".eb...!|...7.\nC|
|00000e10| 12 c3 79 88 c4 0d c6 50 | 21 83 37 00 c7 95 62 88 |..y....P|!.7...b.|
|00000e20| c4 c8 21 83 37 00 c3 95 | 83 37 00 c3 94 c3 95 7b |..!.7...|.7.....{|
|00000e30| 5c 6e 42 12 c3 79 88 82 | 12 00 5c 6e 2a 87 22 20 |\nB..y..|..\n*." |
|00000e40| 5b 6c 6d 2d 68 65 61 64 | 65 72 20 68 65 61 64 65 |[lm-head|er heade|
|00000e50| 72 20 72 65 73 20 31 20 | 6c 6f 6f 6b 69 6e 67 2d |r res 1 |looking-|
|00000e60| 61 74 20 6c 6d 2d 68 65 | 61 64 65 72 2d 70 72 65 |at lm-he|ader-pre|
|00000e70| 66 69 78 20 22 5b 09 20 | 5d 2b 22 20 30 20 22 5c |fix "[. |]+" 0 "\|
|00000e80| 5c 28 2e 2a 5c 5c 29 22 | 5d 20 34 20 28 23 24 20 |\(.*\\)"|] 4 (#$ |
|00000e90| 2e 20 33 34 31 33 29 5d | 29 0a 23 40 37 37 20 52 |. 3413)]|).#@77 R|
|00000ea0| 65 74 75 72 6e 20 74 68 | 65 20 6f 6e 65 2d 6c 69 |eturn th|e one-li|
|00000eb0| 6e 65 20 73 75 6d 6d 61 | 72 79 20 6f 66 20 66 69 |ne summa|ry of fi|
|00000ec0| 6c 65 20 46 49 4c 45 2c | 20 6f 72 20 63 75 72 72 |le FILE,| or curr|
|00000ed0| 65 6e 74 20 62 75 66 66 | 65 72 20 69 66 20 46 49 |ent buff|er if FI|
|00000ee0| 4c 45 20 69 73 20 6e 69 | 6c 2e 1f 0a 28 64 65 66 |LE is ni|l...(def|
|00000ef0| 61 6c 69 61 73 20 27 6c | 6d 2d 73 75 6d 6d 61 72 |alias 'l|m-summar|
|00000f00| 79 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 66 |y #[(&op|tional f|
|00000f10| 69 6c 65 29 20 22 8a 08 | 83 09 00 c1 08 21 88 65 |ile) "..|.....!.e|
|00000f20| 62 88 c2 0b 21 85 21 00 | c4 95 62 88 c2 c5 21 85 |b...!.!.|..b...!.|
|00000f30| 21 00 c6 94 c6 95 7b 08 | 83 29 00 c7 70 21 88 29 |!.....{.|.)..p!.)|
|00000f40| 87 22 20 5b 66 69 6c 65 | 20 66 69 6e 64 2d 66 69 |." [file| find-fi|
|00000f50| 6c 65 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 6c 6d |le looki|ng-at lm|
|00000f60| 2d 68 65 61 64 65 72 2d | 70 72 65 66 69 78 20 30 |-header-|prefix 0|
|00000f70| 20 22 5b 5e 20 5d 2b 5b | 20 09 5d 2b 2d 2d 2b 5b | "[^ ]+[| .]+--+[|
|00000f80| 20 09 5d 2b 5c 5c 28 2e | 2a 5c 5c 29 22 20 31 20 | .]+\\(.|*\\)" 1 |
|00000f90| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 5d 20 33 20 28 |kill-buf|fer] 3 (|
|00000fa0| 23 24 20 2e 20 33 37 34 | 33 29 5d 29 0a 23 40 31 |#$ . 374|3)]).#@1|
|00000fb0| 32 30 20 53 70 6c 69 74 | 20 75 70 20 61 6e 20 65 |20 Split| up an e|
|00000fc0| 6d 61 69 6c 20 61 64 64 | 72 65 73 73 20 69 6e 74 |mail add|ress int|
|00000fd0| 6f 20 66 75 6c 6c 20 6e | 61 6d 65 20 61 6e 64 20 |o full n|ame and |
|00000fe0| 72 65 61 6c 20 65 6d 61 | 69 6c 20 61 64 64 72 65 |real ema|il addre|
|00000ff0| 73 73 2e 0a 54 68 65 20 | 76 61 6c 75 65 20 69 73 |ss..The |value is|
|00001000| 20 61 20 63 6f 6e 73 20 | 6f 66 20 74 68 65 20 66 | a cons |of the f|
|00001010| 6f 72 6d 20 28 46 55 4c | 4c 4e 41 4d 45 20 2e 20 |orm (FUL|LNAME . |
|00001020| 41 44 44 52 45 53 53 29 | 2e 1f 0a 28 64 65 66 61 |ADDRESS)|...(defa|
|00001030| 6c 69 61 73 20 27 6c 6d | 2d 63 72 61 63 6b 2d 61 |lias 'lm|-crack-a|
|00001040| 64 64 72 65 73 73 20 23 | 5b 28 78 29 20 22 c0 c1 |ddress #|[(x) "..|
|00001050| 5c 6e 5c 22 83 15 00 5c | 6e c3 94 c3 95 4f 5c 6e |\n\"...\|n....O\n|
|00001060| c4 94 c4 95 4f 42 87 c0 | c5 5c 6e 5c 22 83 2a 00 |....OB..|.\n\".*.|
|00001070| 5c 6e c4 94 c4 95 4f 5c | 6e c3 94 c3 95 4f 42 87 |\n....O\|n....OB.|
|00001080| c0 c6 5c 6e 5c 22 83 35 | 00 c7 5c 6e 42 87 5c 6e |..\n\".5|..\nB.\n|
|00001090| c7 42 87 22 20 5b 73 74 | 72 69 6e 67 2d 6d 61 74 |.B." [st|ring-mat|
|000010a0| 63 68 20 22 5c 5c 28 2e | 2b 5c 5c 29 20 5b 28 3c |ch "\\(.|+\\) [(<|
|000010b0| 5d 5c 5c 28 5c 5c 53 2d | 2b 40 5c 5c 53 2d 2b 5c |]\\(\\S-|+@\\S-+\|
|000010c0| 5c 29 5b 3e 29 5d 22 20 | 78 20 31 20 32 20 22 5c |\)[>)]" |x 1 2 "\|
|000010d0| 5c 28 5c 5c 53 2d 2b 40 | 5c 5c 53 2d 2b 5c 5c 29 |\(\\S-+@|\\S-+\\)|
|000010e0| 20 5b 28 3c 5d 5c 5c 28 | 2e 2a 5c 5c 29 5b 3e 29 | [(<]\\(|.*\\)[>)|
|000010f0| 5d 22 20 22 5c 5c 53 2d | 2b 40 5c 5c 53 2d 2b 22 |]" "\\S-|+@\\S-+"|
|00001100| 20 6e 69 6c 5d 20 34 20 | 28 23 24 20 2e 20 34 30 | nil] 4 |(#$ . 40|
|00001110| 31 39 29 5d 29 0a 23 40 | 31 36 33 20 52 65 74 75 |19)]).#@|163 Retu|
|00001120| 72 6e 20 74 68 65 20 61 | 75 74 68 6f 72 20 6c 69 |rn the a|uthor li|
|00001130| 73 74 20 6f 66 20 66 69 | 6c 65 20 46 49 4c 45 2c |st of fi|le FILE,|
|00001140| 20 6f 72 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 | or curr|ent buff|
|00001150| 65 72 20 69 66 20 46 49 | 4c 45 20 69 73 20 6e 69 |er if FI|LE is ni|
|00001160| 6c 2e 0a 45 61 63 68 20 | 65 6c 65 6d 65 6e 74 20 |l..Each |element |
|00001170| 6f 66 20 74 68 65 20 6c | 69 73 74 20 69 73 20 61 |of the l|ist is a|
|00001180| 20 63 6f 6e 73 3b 20 74 | 68 65 20 63 61 72 20 69 | cons; t|he car i|
|00001190| 73 20 74 68 65 20 66 75 | 6c 6c 20 6e 61 6d 65 2c |s the fu|ll name,|
|000011a0| 0a 74 68 65 20 63 64 72 | 20 69 73 20 61 6e 20 65 |.the cdr| is an e|
|000011b0| 6d 61 69 6c 20 61 64 64 | 72 65 73 73 2e 1f 0a 28 |mail add|ress...(|
|000011c0| 64 65 66 61 6c 69 61 73 | 20 27 6c 6d 2d 61 75 74 |defalias| 'lm-aut|
|000011d0| 68 6f 72 73 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |hors #[(|&optiona|
|000011e0| 6c 20 66 69 6c 65 29 20 | 22 8a 08 83 09 00 c1 08 |l file) |".......|
|000011f0| 21 88 c2 c3 21 1c c5 c6 | 5c 66 5c 22 08 83 19 00 |!...!...|\f\"....|
|00001200| c7 70 21 88 2a 87 22 20 | 5b 66 69 6c 65 20 66 69 |.p!.*." |[file fi|
|00001210| 6e 64 2d 66 69 6c 65 20 | 6c 6d 2d 68 65 61 64 65 |nd-file |lm-heade|
|00001220| 72 2d 6d 75 6c 74 69 6c | 69 6e 65 20 22 61 75 74 |r-multil|ine "aut|
|00001230| 68 6f 72 22 20 61 75 74 | 68 6f 72 6c 69 73 74 20 |hor" aut|horlist |
|00001240| 6d 61 70 63 61 72 20 6c | 6d 2d 63 72 61 63 6b 2d |mapcar l|m-crack-|
|00001250| 61 64 64 72 65 73 73 20 | 6b 69 6c 6c 2d 62 75 66 |address |kill-buf|
|00001260| 66 65 72 5d 20 33 20 28 | 23 24 20 2e 20 34 33 38 |fer] 3 (|#$ . 438|
|00001270| 30 29 5d 29 0a 23 40 31 | 31 39 20 52 65 74 75 72 |0)]).#@1|19 Retur|
|00001280| 6e 20 74 68 65 20 6d 61 | 69 6e 74 61 69 6e 65 72 |n the ma|intainer|
|00001290| 20 6f 66 20 66 69 6c 65 | 20 46 49 4c 45 2c 20 6f | of file| FILE, o|
|000012a0| 72 20 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |r curren|t buffer|
|000012b0| 20 69 66 20 46 49 4c 45 | 20 69 73 20 6e 69 6c 2e | if FILE| is nil.|
|000012c0| 0a 54 68 65 20 72 65 74 | 75 72 6e 20 76 61 6c 75 |.The ret|urn valu|
|000012d0| 65 20 68 61 73 20 74 68 | 65 20 66 6f 72 6d 20 28 |e has th|e form (|
|000012e0| 4e 41 4d 45 20 2e 20 41 | 44 44 52 45 53 53 29 2e |NAME . A|DDRESS).|
|000012f0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6c 6d 2d |..(defal|ias 'lm-|
|00001300| 6d 61 69 6e 74 61 69 6e | 65 72 20 23 5b 28 26 6f |maintain|er #[(&o|
|00001310| 70 74 69 6f 6e 61 6c 20 | 66 69 6c 65 29 20 22 8a |ptional |file) ".|
|00001320| 08 83 09 00 c1 08 21 88 | c2 c3 21 89 1c 83 17 00 |......!.|..!.....|
|00001330| c5 5c 66 21 82 1a 00 c6 | 20 40 29 08 83 23 00 c7 |.\f!....| @)..#..|
|00001340| 70 21 88 29 87 22 20 5b | 66 69 6c 65 20 66 69 6e |p!.)." [|file fin|
|00001350| 64 2d 66 69 6c 65 20 6c | 6d 2d 68 65 61 64 65 72 |d-file l|m-header|
|00001360| 20 22 6d 61 69 6e 74 61 | 69 6e 65 72 22 20 6d 61 | "mainta|iner" ma|
|00001370| 69 6e 74 20 6c 6d 2d 63 | 72 61 63 6b 2d 61 64 64 |int lm-c|rack-add|
|00001380| 72 65 73 73 20 6c 6d 2d | 61 75 74 68 6f 72 73 20 |ress lm-|authors |
|00001390| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 5d 20 34 20 28 |kill-buf|fer] 4 (|
|000013a0| 23 24 20 2e 20 34 37 33 | 31 29 5d 29 0a 23 40 37 |#$ . 473|1)]).#@7|
|000013b0| 39 20 52 65 74 75 72 6e | 20 74 68 65 20 63 72 65 |9 Return| the cre|
|000013c0| 61 74 65 64 20 64 61 74 | 65 20 67 69 76 65 6e 20 |ated dat|e given |
|000013d0| 69 6e 20 66 69 6c 65 20 | 46 49 4c 45 2c 20 6f 72 |in file |FILE, or|
|000013e0| 20 63 75 72 72 65 6e 74 | 20 62 75 66 66 65 72 20 | current| buffer |
|000013f0| 69 66 20 46 49 4c 45 20 | 69 73 20 6e 69 6c 2e 1f |if FILE |is nil..|
|00001400| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6c 6d 2d 63 |.(defali|as 'lm-c|
|00001410| 72 65 61 74 69 6f 6e 2d | 64 61 74 65 20 23 5b 28 |reation-|date #[(|
|00001420| 26 6f 70 74 69 6f 6e 61 | 6c 20 66 69 6c 65 29 20 |&optiona|l file) |
|00001430| 22 8a 08 83 09 00 c1 08 | 21 88 c2 c3 21 08 83 14 |".......|!...!...|
|00001440| 00 c4 70 21 88 29 87 22 | 20 5b 66 69 6c 65 20 66 |..p!.)."| [file f|
|00001450| 69 6e 64 2d 66 69 6c 65 | 20 6c 6d 2d 68 65 61 64 |ind-file| lm-head|
|00001460| 65 72 20 22 63 72 65 61 | 74 65 64 22 20 6b 69 6c |er "crea|ted" kil|
|00001470| 6c 2d 62 75 66 66 65 72 | 5d 20 33 20 28 23 24 20 |l-buffer|] 3 (#$ |
|00001480| 2e 20 35 30 34 32 29 5d | 29 0a 23 40 37 38 20 52 |. 5042)]|).#@78 R|
|00001490| 65 74 75 72 6e 20 74 68 | 65 20 6d 6f 64 69 66 79 |eturn th|e modify|
|000014a0| 2d 64 61 74 65 20 67 69 | 76 65 6e 20 69 6e 20 66 |-date gi|ven in f|
|000014b0| 69 6c 65 20 46 49 4c 45 | 2c 20 6f 72 20 63 75 72 |ile FILE|, or cur|
|000014c0| 72 65 6e 74 20 62 75 66 | 66 65 72 20 69 66 20 46 |rent buf|fer if F|
|000014d0| 49 4c 45 20 69 73 20 6e | 69 6c 2e 1f 0a 28 64 65 |ILE is n|il...(de|
|000014e0| 66 61 6c 69 61 73 20 27 | 6c 6d 2d 6c 61 73 74 2d |falias '|lm-last-|
|000014f0| 6d 6f 64 69 66 69 65 64 | 2d 64 61 74 65 20 23 5b |modified|-date #[|
|00001500| 28 26 6f 70 74 69 6f 6e | 61 6c 20 66 69 6c 65 29 |(&option|al file)|
|00001510| 20 22 8a 08 83 09 00 c1 | 08 21 88 65 62 88 c2 c3 | "......|.!.eb...|
|00001520| c4 c5 21 c6 23 85 2c 00 | c7 c8 c9 94 c9 95 7b ca |..!.#.,.|......{.|
|00001530| cb 94 cb 95 7b 21 cc 38 | cd 94 cd 95 7b 24 08 83 |....{!.8|....{$..|
|00001540| 34 00 ce 70 21 88 29 87 | 22 20 5b 66 69 6c 65 20 |4..p!.).|" [file |
|00001550| 66 69 6e 64 2d 66 69 6c | 65 20 72 65 2d 73 65 61 |find-fil|e re-sea|
|00001560| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 5c 5c 24 |rch-forw|ard "\\$|
|00001570| 49 64 3a 20 5b 5e 20 5d | 2b 20 5b 5e 20 5d 2b 20 |Id: [^ ]|+ [^ ]+ |
|00001580| 5c 5c 28 5b 5e 2f 5d 2b | 5c 5c 29 2f 5c 5c 28 5b |\\([^/]+|\\)/\\([|
|00001590| 5e 2f 5d 2b 5c 5c 29 2f | 5c 5c 28 5b 5e 20 5d 2b |^/]+\\)/|\\([^ ]+|
|000015a0| 5c 5c 29 20 22 20 6c 6d | 2d 73 65 63 74 69 6f 6e |\\) " lm|-section|
|000015b0| 2d 6d 61 72 6b 20 22 43 | 6f 64 65 22 20 74 20 66 |-mark "C|ode" t f|
|000015c0| 6f 72 6d 61 74 20 22 25 | 73 20 25 73 20 25 73 22 |ormat "%|s %s %s"|
|000015d0| 20 33 20 73 74 72 69 6e | 67 2d 74 6f 2d 69 6e 74 | 3 strin|g-to-int|
|000015e0| 20 32 20 28 22 22 20 22 | 4a 61 6e 22 20 22 46 65 | 2 ("" "|Jan" "Fe|
|000015f0| 62 22 20 22 4d 61 72 22 | 20 22 41 70 72 22 20 22 |b" "Mar"| "Apr" "|
|00001600| 4d 61 79 22 20 22 4a 75 | 6e 22 20 22 4a 75 6c 22 |May" "Ju|n" "Jul"|
|00001610| 20 22 41 75 67 22 20 22 | 53 65 70 22 20 22 4f 63 | "Aug" "|Sep" "Oc|
|00001620| 74 22 20 22 4e 6f 76 22 | 20 22 44 65 63 22 29 20 |t" "Nov"| "Dec") |
|00001630| 31 20 6b 69 6c 6c 2d 62 | 75 66 66 65 72 5d 20 36 |1 kill-b|uffer] 6|
|00001640| 20 28 23 24 20 2e 20 35 | 32 36 33 29 5d 29 0a 23 | (#$ . 5|263)]).#|
|00001650| 40 31 33 37 20 52 65 74 | 75 72 6e 20 74 68 65 20 |@137 Ret|urn the |
|00001660| 76 65 72 73 69 6f 6e 20 | 6c 69 73 74 65 64 20 69 |version |listed i|
|00001670| 6e 20 66 69 6c 65 20 46 | 49 4c 45 2c 20 6f 72 20 |n file F|ILE, or |
|00001680| 63 75 72 72 65 6e 74 20 | 62 75 66 66 65 72 20 69 |current |buffer i|
|00001690| 66 20 46 49 4c 45 20 69 | 73 20 6e 69 6c 2e 0a 54 |f FILE i|s nil..T|
|000016a0| 68 69 73 20 63 61 6e 20 | 62 65 66 6f 75 6e 64 20 |his can |befound |
|000016b0| 69 6e 20 61 6e 20 52 43 | 53 20 6f 72 20 53 43 43 |in an RC|S or SCC|
|000016c0| 53 20 68 65 61 64 65 72 | 20 74 6f 20 63 72 61 63 |S header| to crac|
|000016d0| 6b 20 69 74 20 6f 75 74 | 20 6f 66 2e 1f 0a 28 64 |k it out| of...(d|
|000016e0| 65 66 61 6c 69 61 73 20 | 27 6c 6d 2d 76 65 72 73 |efalias |'lm-vers|
|000016f0| 69 6f 6e 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ion #[(&|optional|
|00001700| 20 66 69 6c 65 29 20 22 | 8a 08 83 09 00 c1 08 21 | file) "|.......!|
|00001710| 88 c2 c3 21 86 45 00 c4 | c5 21 1e 06 65 62 88 c7 |...!.E..|.!..eb..|
|00001720| c8 0e 06 c9 23 83 28 00 | ca 94 ca 95 7b 82 44 00 |....#.(.|....{.D.|
|00001730| c7 cb cc 21 cb cd ce 20 | 21 21 cf 51 0e 06 c9 23 |...!... |!!.Q...#|
|00001740| 83 43 00 ca 94 ca 95 7b | 82 44 00 d0 29 08 83 4d |.C.....{|.D..)..M|
|00001750| 00 d1 70 21 88 29 87 22 | 20 5b 66 69 6c 65 20 66 |..p!.)."| [file f|
|00001760| 69 6e 64 2d 66 69 6c 65 | 20 6c 6d 2d 68 65 61 64 |ind-file| lm-head|
|00001770| 65 72 20 22 76 65 72 73 | 69 6f 6e 22 20 6c 6d 2d |er "vers|ion" lm-|
|00001780| 73 65 63 74 69 6f 6e 2d | 6d 61 72 6b 20 22 43 6f |section-|mark "Co|
|00001790| 64 65 22 20 68 65 61 64 | 65 72 2d 6d 61 78 20 72 |de" head|er-max r|
|000017a0| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|000017b0| 20 22 5c 5c 24 49 64 3a | 20 5b 5e 20 5d 2b 20 5c | "\\$Id:| [^ ]+ \|
|000017c0| 5c 28 5b 5e 20 5d 2b 5c | 5c 29 20 22 20 74 20 31 |\([^ ]+\|\) " t 1|
|000017d0| 20 72 65 67 65 78 70 2d | 71 75 6f 74 65 20 22 40 | regexp-|quote "@|
|000017e0| 28 23 29 22 20 66 69 6c | 65 2d 6e 61 6d 65 2d 6e |(#)" fil|e-name-n|
|000017f0| 6f 6e 64 69 72 65 63 74 | 6f 72 79 20 62 75 66 66 |ondirect|ory buff|
|00001800| 65 72 2d 66 69 6c 65 2d | 6e 61 6d 65 20 22 09 5c |er-file-|name ".\|
|00001810| 5c 28 5b 30 31 32 33 34 | 35 36 37 39 2e 5d 2a 5c |\([01234|5679.]*\|
|00001820| 5c 29 22 20 6e 69 6c 20 | 6b 69 6c 6c 2d 62 75 66 |\)" nil |kill-buf|
|00001830| 66 65 72 5d 20 35 20 28 | 23 24 20 2e 20 35 37 31 |fer] 5 (|#$ . 571|
|00001840| 37 29 5d 29 0a 23 40 37 | 35 20 52 65 74 75 72 6e |7)]).#@7|5 Return|
|00001850| 20 74 68 65 20 6b 65 79 | 77 6f 72 64 73 20 67 69 | the key|words gi|
|00001860| 76 65 6e 20 69 6e 20 66 | 69 6c 65 20 46 49 4c 45 |ven in f|ile FILE|
|00001870| 2c 20 6f 72 20 63 75 72 | 72 65 6e 74 20 62 75 66 |, or cur|rent buf|
|00001880| 66 65 72 20 69 66 20 46 | 49 4c 45 20 69 73 20 6e |fer if F|ILE is n|
|00001890| 69 6c 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il...(de|falias '|
|000018a0| 6c 6d 2d 6b 65 79 77 6f | 72 64 73 20 23 5b 28 26 |lm-keywo|rds #[(&|
|000018b0| 6f 70 74 69 6f 6e 61 6c | 20 66 69 6c 65 29 20 22 |optional| file) "|
|000018c0| 8a 08 83 09 00 c1 08 21 | 88 c2 c3 21 89 1c 85 13 |.......!|...!....|
|000018d0| 00 5c 66 97 29 08 83 1c | 00 c5 70 21 88 29 87 22 |.\f.)...|..p!.)."|
|000018e0| 20 5b 66 69 6c 65 20 66 | 69 6e 64 2d 66 69 6c 65 | [file f|ind-file|
|000018f0| 20 6c 6d 2d 68 65 61 64 | 65 72 20 22 6b 65 79 77 | lm-head|er "keyw|
|00001900| 6f 72 64 73 22 20 6b 65 | 79 77 6f 72 64 73 20 6b |ords" ke|ywords k|
|00001910| 69 6c 6c 2d 62 75 66 66 | 65 72 5d 20 34 20 28 23 |ill-buff|er] 4 (#|
|00001920| 24 20 2e 20 36 32 31 38 | 29 5d 29 0a 23 40 31 35 |$ . 6218|)]).#@15|
|00001930| 34 20 52 65 74 75 72 6e | 20 74 68 65 20 61 64 61 |4 Return| the ada|
|00001940| 70 74 65 64 2d 62 79 20 | 6e 61 6d 65 73 20 69 6e |pted-by |names in|
|00001950| 20 66 69 6c 65 20 46 49 | 4c 45 2c 20 6f 72 20 63 | file FI|LE, or c|
|00001960| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 20 69 66 |urrent b|uffer if|
|00001970| 20 46 49 4c 45 20 69 73 | 20 6e 69 6c 2e 0a 54 68 | FILE is| nil..Th|
|00001980| 69 73 20 69 73 20 74 68 | 65 20 6e 61 6d 65 20 6f |is is th|e name o|
|00001990| 66 20 74 68 65 20 70 65 | 72 73 6f 6e 20 77 68 6f |f the pe|rson who|
|000019a0| 20 63 6c 65 61 6e 65 64 | 20 75 70 20 74 68 69 73 | cleaned| up this|
|000019b0| 20 70 61 63 6b 61 67 65 | 20 66 6f 72 0a 64 69 73 | package| for.dis|
|000019c0| 74 72 69 62 75 74 69 6f | 6e 2e 1f 0a 28 64 65 66 |tributio|n...(def|
|000019d0| 61 6c 69 61 73 20 27 6c | 6d 2d 61 64 61 70 74 65 |alias 'l|m-adapte|
|000019e0| 64 2d 62 79 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |d-by #[(|&optiona|
|000019f0| 6c 20 66 69 6c 65 29 20 | 22 8a 08 83 09 00 c1 08 |l file) |".......|
|00001a00| 21 88 c2 c3 21 08 83 14 | 00 c4 70 21 88 29 87 22 |!...!...|..p!.)."|
|00001a10| 20 5b 66 69 6c 65 20 66 | 69 6e 64 2d 66 69 6c 65 | [file f|ind-file|
|00001a20| 20 6c 6d 2d 68 65 61 64 | 65 72 20 22 61 64 61 70 | lm-head|er "adap|
|00001a30| 74 65 64 2d 62 79 22 20 | 6b 69 6c 6c 2d 62 75 66 |ted-by" |kill-buf|
|00001a40| 66 65 72 5d 20 33 20 28 | 23 24 20 2e 20 36 34 35 |fer] 3 (|#$ . 645|
|00001a50| 30 29 5d 29 0a 23 40 32 | 30 39 20 52 65 74 75 72 |0)]).#@2|09 Retur|
|00001a60| 6e 20 74 68 65 20 63 6f | 6d 6d 65 6e 74 61 72 79 |n the co|mmentary|
|00001a70| 20 69 6e 20 66 69 6c 65 | 20 46 49 4c 45 2c 20 6f | in file| FILE, o|
|00001a80| 72 20 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |r curren|t buffer|
|00001a90| 20 69 66 20 46 49 4c 45 | 20 69 73 20 6e 69 6c 2e | if FILE| is nil.|
|00001aa0| 0a 54 68 65 20 76 61 6c | 75 65 20 69 73 20 72 65 |.The val|ue is re|
|00001ab0| 74 75 72 6e 65 64 20 61 | 73 20 61 20 73 74 72 69 |turned a|s a stri|
|00001ac0| 6e 67 2e 20 20 49 6e 20 | 74 68 65 20 74 65 78 74 |ng.  In |the text|
|00001ad0| 2c 20 74 68 65 20 63 6f | 6d 6d 65 6e 74 61 72 79 |, the co|mmentary|
|00001ae0| 20 73 74 61 72 74 73 0a | 77 69 74 68 20 74 61 67 | starts.|with tag|
|00001af0| 20 60 43 6f 6d 6d 65 6e | 74 61 72 79 27 20 61 6e | `Commen|tary' an|
|00001b00| 64 20 65 6e 64 73 20 77 | 69 74 68 20 74 61 67 20 |d ends w|ith tag |
|00001b10| 60 43 68 61 6e 67 65 20 | 4c 6f 67 27 20 6f 72 20 |`Change |Log' or |
|00001b20| 60 48 69 73 74 6f 72 79 | 27 2e 1f 0a 28 64 65 66 |`History|'...(def|
|00001b30| 61 6c 69 61 73 20 27 6c | 6d 2d 63 6f 6d 6d 65 6e |alias 'l|m-commen|
|00001b40| 74 61 72 79 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |tary #[(|&optiona|
|00001b50| 6c 20 66 69 6c 65 29 20 | 22 8a 08 83 09 00 c1 08 |l file) |".......|
|00001b60| 21 88 c2 0b 21 c2 5c 66 | 21 c2 c5 21 1e 06 1e 07 |!...!.\f|!..!....|
|00001b70| 89 1e 08 83 29 00 0e 07 | 83 29 00 0e 08 0e 07 7b |....)...|.).....{|
|00001b80| 82 3c 00 0e 08 83 3b 00 | 0e 06 83 3b 00 0e 08 0e |.<....;.|...;....|
|00001b90| 06 7b 82 3c 00 c9 2b 08 | 83 45 00 ca 70 21 88 29 |.{.<..+.|.E..p!.)|
|00001ba0| 87 22 20 5b 66 69 6c 65 | 20 66 69 6e 64 2d 66 69 |." [file| find-fi|
|00001bb0| 6c 65 20 6c 6d 2d 73 65 | 63 74 69 6f 6e 2d 6d 61 |le lm-se|ction-ma|
|00001bc0| 72 6b 20 6c 6d 2d 63 6f | 6d 6d 65 6e 74 61 72 79 |rk lm-co|mmentary|
|00001bd0| 2d 68 65 61 64 65 72 20 | 6c 6d 2d 68 69 73 74 6f |-header |lm-histo|
|00001be0| 72 79 2d 68 65 61 64 65 | 72 20 22 43 6f 64 65 22 |ry-heade|r "Code"|
|00001bf0| 20 63 6f 64 65 20 63 68 | 61 6e 67 65 2d 6c 6f 67 | code ch|ange-log|
|00001c00| 20 63 6f 6d 6d 65 6e 74 | 61 72 79 20 6e 69 6c 20 | comment|ary nil |
|00001c10| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 5d 20 35 20 28 |kill-buf|fer] 5 (|
|00001c20| 23 24 20 2e 20 36 37 34 | 37 29 5d 29 0a 23 40 34 |#$ . 674|7)]).#@4|
|00001c30| 30 20 49 6e 73 65 72 74 | 20 6c 69 73 74 20 6f 66 |0 Insert| list of|
|00001c40| 20 53 54 52 49 4e 47 53 | 2c 20 61 74 20 63 6f 6c | STRINGS|, at col|
|00001c50| 75 6d 6e 20 43 4f 4c 2e | 1f 0a 28 64 65 66 61 6c |umn COL.|..(defal|
|00001c60| 69 61 73 20 27 6c 6d 2d | 69 6e 73 65 72 74 2d 61 |ias 'lm-|insert-a|
|00001c70| 74 2d 63 6f 6c 75 6d 6e | 20 23 5b 28 63 6f 6c 20 |t-column| #[(col |
|00001c80| 26 72 65 73 74 20 73 74 | 72 69 6e 67 73 29 20 22 |&rest st|rings) "|
|00001c90| 69 08 56 83 09 00 c1 63 | 88 c2 08 21 88 c3 c4 0d |i.V....c|...!....|
|00001ca0| 5c 22 87 22 20 5b 63 6f | 6c 20 22 5c 6e 22 20 6d |\"." [co|l "\n" m|
|00001cb0| 6f 76 65 2d 74 6f 2d 63 | 6f 6c 75 6d 6e 2d 66 6f |ove-to-c|olumn-fo|
|00001cc0| 72 63 65 20 61 70 70 6c | 79 20 69 6e 73 65 72 74 |rce appl|y insert|
|00001cd0| 20 73 74 72 69 6e 67 73 | 5d 20 33 20 28 23 24 20 | strings|] 3 (#$ |
|00001ce0| 2e 20 37 32 31 38 29 5d | 29 0a 23 40 31 36 31 20 |. 7218)]|).#@161 |
|00001cf0| 43 68 65 63 6b 20 74 68 | 61 74 20 74 68 65 20 63 |Check th|at the c|
|00001d00| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 20 28 6f |urrent b|uffer (o|
|00001d10| 72 20 46 49 4c 45 20 69 | 66 20 67 69 76 65 6e 29 |r FILE i|f given)|
|00001d20| 20 69 73 20 69 6e 20 70 | 72 6f 70 65 72 20 66 6f | is in p|roper fo|
|00001d30| 72 6d 61 74 2e 0a 49 66 | 20 46 49 4c 45 20 69 73 |rmat..If| FILE is|
|00001d40| 20 61 20 64 69 72 65 63 | 74 6f 72 79 2c 20 72 65 | a direc|tory, re|
|00001d50| 63 75 72 73 65 20 6f 6e | 20 69 74 73 20 66 69 6c |curse on| its fil|
|00001d60| 65 73 20 61 6e 64 20 67 | 65 6e 65 72 61 74 65 20 |es and g|enerate |
|00001d70| 61 20 72 65 70 6f 72 74 | 20 69 6e 0a 61 20 74 65 |a report| in.a te|
|00001d80| 6d 70 6f 72 61 72 79 20 | 62 75 66 66 65 72 2e 1f |mporary |buffer..|
|00001d90| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6c 6d 2d 76 |.(defali|as 'lm-v|
|00001da0| 65 72 69 66 79 20 23 5b | 28 26 6f 70 74 69 6f 6e |erify #[|(&option|
|00001db0| 61 6c 20 66 69 6c 65 20 | 73 68 6f 77 6f 6b 20 26 |al file |showok &|
|00001dc0| 6f 70 74 69 6f 6e 61 6c | 20 76 65 72 62 29 20 22 |optional| verb) "|
|00001dd0| 08 86 05 00 74 18 c1 1a | c1 1b 08 83 10 00 c4 12 |....t...|........|
|00001de0| 0d 83 2d 00 c6 0d 21 83 | 2d 00 c7 c8 c9 21 21 88 |..-...!.|-....!!.|
|00001df0| ca 20 88 cb cc cd 0d 21 | 5c 22 12 82 c6 00 8a 0d |. .....!|\"......|
|00001e00| 83 36 00 ce 0d 21 88 8a | 65 62 88 cf 0e 10 b0 01 |.6...!..|eb......|
|00001e10| 21 85 55 00 d1 95 62 88 | cf d2 21 88 d3 95 85 55 |!.U...b.|..!....U|
|00001e20| 00 d3 94 d3 95 7b 29 89 | 13 84 5f 00 d4 82 bc 00 |.....{).|.._.....|
|00001e30| d5 20 84 68 00 d6 82 bc | 00 d7 20 84 71 00 d8 82 |. .h....|.. .q...|
|00001e40| bc 00 d9 20 84 7a 00 da | 82 bc 00 db 20 84 83 00 |... .z..|.... ...|
|00001e50| dc 82 bc 00 dd 0e 1e 21 | 84 8e 00 df 82 bc 00 dd |.......!|........|
|00001e60| 0e 20 21 84 99 00 e1 82 | bc 00 dd e2 21 84 a3 00 |. !.....|....!...|
|00001e70| e3 82 bc 00 64 62 88 e4 | e5 0b e6 e7 0b b0 05 c1 |....db..|........|
|00001e80| e8 23 84 bb 00 e9 ea 0b | 5c 22 82 bc 00 5c 6e 0d |.#......|\"...\n.|
|00001e90| 83 c4 00 eb 70 21 88 12 | 29 08 83 ce 00 ec 5c 6e |....p!..|).....\n|
|00001ea0| 21 88 5c 6e 2b 87 22 20 | 5b 76 65 72 62 20 6e 69 |!.\n+." |[verb ni|
|00001eb0| 6c 20 72 65 74 20 6e 61 | 6d 65 20 22 4f 6b 2e 22 |l ret na|me "Ok."|
|00001ec0| 20 66 69 6c 65 20 66 69 | 6c 65 2d 64 69 72 65 63 | file fi|le-direc|
|00001ed0| 74 6f 72 79 2d 70 20 73 | 77 69 74 63 68 2d 74 6f |tory-p s|witch-to|
|00001ee0| 2d 62 75 66 66 65 72 20 | 67 65 74 2d 62 75 66 66 |-buffer |get-buff|
|00001ef0| 65 72 2d 63 72 65 61 74 | 65 20 22 2a 6c 6d 2d 76 |er-creat|e "*lm-v|
|00001f00| 65 72 69 66 79 2a 22 20 | 65 72 61 73 65 2d 62 75 |erify*" |erase-bu|
|00001f10| 66 66 65 72 20 6d 61 70 | 63 61 72 20 23 5b 28 66 |ffer map|car #[(f|
|00001f20| 29 20 22 c0 c1 5c 6e 5c | 22 85 2d 00 c3 5c 6e 21 |) "..\n\|".-..\n!|
|00001f30| 89 1c 83 1d 00 5c 6e c5 | b1 02 88 c6 0e 07 5c 66 |.....\n.|......\f|
|00001f40| c8 23 82 2c 00 0e 09 85 | 2c 00 5c 6e c5 b1 02 88 |.#.,....|,.\n....|
|00001f50| c6 0e 07 ca 5c 22 29 87 | 22 20 5b 73 74 72 69 6e |....\").|" [strin|
|00001f60| 67 2d 6d 61 74 63 68 20 | 22 2e 2a 5c 5c 2e 65 6c |g-match |".*\\.el|
|00001f70| 24 22 20 66 20 6c 6d 2d | 76 65 72 69 66 79 20 73 |$" f lm-|verify s|
|00001f80| 74 61 74 75 73 20 22 3a | 22 20 6c 6d 2d 69 6e 73 |tatus ":|" lm-ins|
|00001f90| 65 72 74 2d 61 74 2d 63 | 6f 6c 75 6d 6e 20 6c 6d |ert-at-c|olumn lm|
|00001fa0| 2d 63 6f 6d 6d 65 6e 74 | 2d 63 6f 6c 75 6d 6e 20 |-comment|-column |
|00001fb0| 22 5c 6e 22 20 73 68 6f | 77 6f 6b 20 22 4f 4b 5c |"\n" sho|wok "OK\|
|00001fc0| 6e 22 5d 20 35 5d 20 64 | 69 72 65 63 74 6f 72 79 |n"] 5] d|irectory|
|00001fd0| 2d 66 69 6c 65 73 20 66 | 69 6e 64 2d 66 69 6c 65 |-files f|ind-file|
|00001fe0| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 6c 6d 2d 68 | looking|-at lm-h|
|00001ff0| 65 61 64 65 72 2d 70 72 | 65 66 69 78 20 30 20 22 |eader-pr|efix 0 "|
|00002000| 5c 5c 28 5b 5e 09 20 5d | 2b 5c 5c 29 22 20 31 20 |\\([^. ]|+\\)" 1 |
|00002010| 22 43 61 6e 27 74 20 66 | 69 6e 64 20 61 20 70 61 |"Can't f|ind a pa|
|00002020| 63 6b 61 67 65 20 4e 41 | 4d 45 22 20 6c 6d 2d 61 |ckage NA|ME" lm-a|
|00002030| 75 74 68 6f 72 73 20 22 | 41 75 74 68 6f 72 3a 20 |uthors "|Author: |
|00002040| 74 61 67 20 6d 69 73 73 | 69 6e 67 2e 22 20 6c 6d |tag miss|ing." lm|
|00002050| 2d 6d 61 69 6e 74 61 69 | 6e 65 72 20 22 4d 61 69 |-maintai|ner "Mai|
|00002060| 6e 74 61 69 6e 65 72 3a | 20 74 61 67 20 6d 69 73 |ntainer:| tag mis|
|00002070| 73 69 6e 67 2e 22 20 6c | 6d 2d 73 75 6d 6d 61 72 |sing." l|m-summar|
|00002080| 79 20 22 43 61 6e 27 74 | 20 66 69 6e 64 20 61 20 |y "Can't| find a |
|00002090| 6f 6e 65 2d 6c 69 6e 65 | 20 27 53 75 6d 6d 61 72 |one-line| 'Summar|
|000020a0| 79 27 20 64 65 73 63 72 | 69 70 74 69 6f 6e 22 20 |y' descr|iption" |
|000020b0| 6c 6d 2d 6b 65 79 77 6f | 72 64 73 20 22 4b 65 79 |lm-keywo|rds "Key|
|000020c0| 77 6f 72 64 73 3a 20 74 | 61 67 20 6d 69 73 73 69 |words: t|ag missi|
|000020d0| 6e 67 2e 22 20 6c 6d 2d | 73 65 63 74 69 6f 6e 2d |ng." lm-|section-|
|000020e0| 6d 61 72 6b 20 6c 6d 2d | 63 6f 6d 6d 65 6e 74 61 |mark lm-|commenta|
|000020f0| 72 79 2d 68 65 61 64 65 | 72 20 22 43 61 6e 27 74 |ry-heade|r "Can't|
|00002100| 20 66 69 6e 64 20 61 20 | 27 43 6f 6d 6d 65 6e 74 | find a |'Comment|
|00002110| 61 72 79 27 20 73 65 63 | 74 69 6f 6e 20 6d 61 72 |ary' sec|tion mar|
|00002120| 6b 65 72 2e 22 20 6c 6d | 2d 68 69 73 74 6f 72 79 |ker." lm|-history|
|00002130| 2d 68 65 61 64 65 72 20 | 22 43 61 6e 27 74 20 66 |-header |"Can't f|
|00002140| 69 6e 64 20 61 20 27 48 | 69 73 74 6f 72 79 27 20 |ind a 'H|istory' |
|00002150| 73 65 63 74 69 6f 6e 20 | 6d 61 72 6b 65 72 2e 22 |section |marker."|
|00002160| 20 22 43 6f 64 65 22 20 | 22 43 61 6e 27 74 20 66 | "Code" |"Can't f|
|00002170| 69 6e 64 20 61 20 27 43 | 6f 64 65 27 20 73 65 63 |ind a 'C|ode' sec|
|00002180| 74 69 6f 6e 20 6d 61 72 | 6b 65 72 22 20 72 65 2d |tion mar|ker" re-|
|00002190| 73 65 61 72 63 68 2d 62 | 61 63 6b 77 61 72 64 20 |search-b|ackward |
|000021a0| 22 5e 3b 3b 3b 5b 20 09 | 5d 2b 22 20 22 5b 20 09 |"^;;;[ .|]+" "[ .|
|000021b0| 5d 2b 65 6e 64 73 20 68 | 65 72 65 5b 20 09 5d 2a |]+ends h|ere[ .]*|
|000021c0| 24 22 20 22 5c 5c 7c 5e | 3b 3b 3b 5b 20 09 5d 2b |$" "\\|^|;;;[ .]+|
|000021d0| 20 45 6e 64 20 6f 66 20 | 66 69 6c 65 5b 20 09 5d | End of |file[ .]|
|000021e0| 2b 22 20 74 20 66 6f 72 | 6d 61 74 20 22 43 61 6e |+" t for|mat "Can|
|000021f0| 27 74 20 66 69 6e 64 20 | 61 20 66 6f 6f 74 65 72 |'t find |a footer|
|00002200| 20 6c 69 6e 65 20 66 6f | 72 20 5b 25 73 5d 22 20 | line fo|r [%s]" |
|00002210| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 20 6d 65 73 73 |kill-buf|fer mess|
|00002220| 61 67 65 5d 20 37 20 28 | 23 24 20 2e 20 37 34 30 |age] 7 (|#$ . 740|
|00002230| 38 29 20 6e 69 6c 5d 29 | 0a 23 40 32 36 33 20 47 |8) nil])|.#@263 G|
|00002240| 65 6e 65 72 61 74 65 20 | 61 20 73 79 6e 6f 70 73 |enerate |a synops|
|00002250| 69 73 20 6c 69 73 74 69 | 6e 67 20 66 6f 72 20 74 |is listi|ng for t|
|00002260| 68 65 20 62 75 66 66 65 | 72 20 6f 72 20 74 68 65 |he buffe|r or the|
|00002270| 20 67 69 76 65 6e 20 46 | 49 4c 45 20 69 66 20 67 | given F|ILE if g|
|00002280| 69 76 65 6e 2e 0a 49 66 | 20 46 49 4c 45 20 69 73 |iven..If| FILE is|
|00002290| 20 61 20 64 69 72 65 63 | 74 6f 72 79 2c 20 72 65 | a direc|tory, re|
|000022a0| 63 75 72 73 65 20 6f 6e | 20 69 74 73 20 66 69 6c |curse on| its fil|
|000022b0| 65 73 20 61 6e 64 20 67 | 65 6e 65 72 61 74 65 20 |es and g|enerate |
|000022c0| 61 20 72 65 70 6f 72 74 | 20 69 6e 0a 61 20 74 65 |a report| in.a te|
|000022d0| 6d 70 6f 72 61 72 79 20 | 62 75 66 66 65 72 2e 20 |mporary |buffer. |
|000022e0| 20 49 66 20 53 48 4f 57 | 41 4c 4c 20 69 73 20 6e | If SHOW|ALL is n|
|000022f0| 6f 6e 2d 6e 69 6c 2c 20 | 61 6c 73 6f 20 67 65 6e |on-nil, |also gen|
|00002300| 65 72 61 74 65 20 61 20 | 6c 69 6e 65 20 66 6f 72 |erate a |line for|
|00002310| 20 66 69 6c 65 73 0a 77 | 68 69 63 68 20 64 6f 20 | files.w|hich do |
|00002320| 6e 6f 74 20 69 6e 63 6c | 75 64 65 20 61 20 72 65 |not incl|ude a re|
|00002330| 63 6f 67 6e 69 7a 61 62 | 6c 65 20 73 79 6e 6f 70 |cognizab|le synop|
|00002340| 73 69 73 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |sis...(d|efalias |
|00002350| 27 6c 6d 2d 73 79 6e 6f | 70 73 69 73 20 23 5b 28 |'lm-syno|psis #[(|
|00002360| 26 6f 70 74 69 6f 6e 61 | 6c 20 66 69 6c 65 20 73 |&optiona|l file s|
|00002370| 68 6f 77 61 6c 6c 29 20 | 22 08 83 1a 00 c1 08 21 |howall) |"......!|
|00002380| 83 1a 00 c2 c3 c4 21 21 | 88 c5 20 88 c6 c7 c8 08 |......!!|.. .....|
|00002390| 21 5c 22 87 8a 08 83 23 | 00 c9 08 21 88 ca 20 08 |!\"....#|...!.. .|
|000023a0| 83 2d 00 cb 70 21 88 29 | 87 22 20 5b 66 69 6c 65 |.-..p!.)|." [file|
|000023b0| 20 66 69 6c 65 2d 64 69 | 72 65 63 74 6f 72 79 2d | file-di|rectory-|
|000023c0| 70 20 73 77 69 74 63 68 | 2d 74 6f 2d 62 75 66 66 |p switch|-to-buff|
|000023d0| 65 72 20 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 |er get-b|uffer-cr|
|000023e0| 65 61 74 65 20 22 2a 6c | 6d 2d 76 65 72 69 66 79 |eate "*l|m-verify|
|000023f0| 2a 22 20 65 72 61 73 65 | 2d 62 75 66 66 65 72 20 |*" erase|-buffer |
|00002400| 6d 61 70 63 61 72 20 23 | 5b 28 66 29 20 22 c0 c1 |mapcar #|[(f) "..|
|00002410| 5c 6e 5c 22 85 2d 00 c3 | 5c 6e 21 89 1c 83 1d 00 |\n\".-..|\n!.....|
|00002420| 5c 6e c5 b1 02 88 c6 0e | 07 5c 66 c8 23 82 2c 00 |\n......|.\f.#.,.|
|00002430| 0e 09 85 2c 00 5c 6e c5 | b1 02 88 c6 0e 07 ca 5c |...,.\n.|.......\|
|00002440| 22 29 87 22 20 5b 73 74 | 72 69 6e 67 2d 6d 61 74 |")." [st|ring-mat|
|00002450| 63 68 20 22 2e 2a 5c 5c | 2e 65 6c 24 22 20 66 20 |ch ".*\\|.el$" f |
|00002460| 6c 6d 2d 73 79 6e 6f 70 | 73 69 73 20 73 79 6e 20 |lm-synop|sis syn |
|00002470| 22 3a 22 20 6c 6d 2d 69 | 6e 73 65 72 74 2d 61 74 |":" lm-i|nsert-at|
|00002480| 2d 63 6f 6c 75 6d 6e 20 | 6c 6d 2d 63 6f 6d 6d 65 |-column |lm-comme|
|00002490| 6e 74 2d 63 6f 6c 75 6d | 6e 20 22 5c 6e 22 20 73 |nt-colum|n "\n" s|
|000024a0| 68 6f 77 61 6c 6c 20 22 | 4e 41 5c 6e 22 5d 20 35 |howall "|NA\n"] 5|
|000024b0| 5d 20 64 69 72 65 63 74 | 6f 72 79 2d 66 69 6c 65 |] direct|ory-file|
|000024c0| 73 20 66 69 6e 64 2d 66 | 69 6c 65 20 6c 6d 2d 73 |s find-f|ile lm-s|
|000024d0| 75 6d 6d 61 72 79 20 6b | 69 6c 6c 2d 62 75 66 66 |ummary k|ill-buff|
|000024e0| 65 72 5d 20 34 20 28 23 | 24 20 2e 20 38 37 36 37 |er] 4 (#|$ . 8767|
|000024f0| 29 20 28 6c 69 73 74 20 | 28 72 65 61 64 2d 66 69 |) (list |(read-fi|
|00002500| 6c 65 2d 6e 61 6d 65 20 | 22 53 79 6e 6f 70 73 69 |le-name |"Synopsi|
|00002510| 73 20 66 6f 72 20 28 66 | 69 6c 65 20 6f 72 20 64 |s for (f|ile or d|
|00002520| 69 72 29 3a 20 22 29 29 | 5d 29 0a 23 40 31 32 37 |ir): "))|]).#@127|
|00002530| 20 52 65 70 6f 72 74 20 | 61 20 62 75 67 20 69 6e | Report |a bug in|
|00002540| 20 74 68 65 20 70 61 63 | 6b 61 67 65 20 63 75 72 | the pac|kage cur|
|00002550| 72 65 6e 74 6c 79 20 62 | 65 69 6e 67 20 76 69 73 |rently b|eing vis|
|00002560| 69 74 65 64 20 74 6f 20 | 69 74 73 20 6d 61 69 6e |ited to |its main|
|00002570| 74 61 69 6e 65 72 2e 0a | 50 72 6f 6d 70 74 73 20 |tainer..|Prompts |
|00002580| 66 6f 72 20 62 75 67 20 | 73 75 62 6a 65 63 74 2e |for bug |subject.|
|00002590| 20 20 4c 65 61 76 65 73 | 20 79 6f 75 20 69 6e 20 |  Leaves| you in |
|000025a0| 61 20 6d 61 69 6c 20 62 | 75 66 66 65 72 2e 1f 0a |a mail b|uffer...|
|000025b0| 28 64 65 66 61 6c 69 61 | 73 20 27 6c 6d 2d 72 65 |(defalia|s 'lm-re|
|000025c0| 70 6f 72 74 2d 62 75 67 | 20 23 5b 28 74 6f 70 69 |port-bug| #[(topi|
|000025d0| 63 29 20 22 8a 65 62 88 | c0 09 b0 01 21 85 1e 00 |c) ".eb.|....!...|
|000025e0| c2 95 62 88 c0 c3 21 88 | c4 95 85 1e 00 c4 94 c4 |..b...!.|........|
|000025f0| 95 7b 29 c5 20 c6 20 1e | 07 1e 08 1e 09 ca cb 0e |.{). . .|........|
|00002600| 08 83 3c 00 0e 08 40 cc | 0e 08 41 cd 52 82 3e 00 |..<...@.|..A.R.>.|
|00002610| 0e 0e 0e 0f 23 88 64 62 | 88 d0 0e 09 0e 07 83 54 |....#.db|.......T|
|00002620| 00 d1 0e 07 50 82 55 00 | d2 d3 b1 04 88 d4 d5 d6 |....P.U.|........|
|00002630| 21 21 2b 87 22 20 5b 6c | 6f 6f 6b 69 6e 67 2d 61 |!!+." [l|ooking-a|
|00002640| 74 20 6c 6d 2d 68 65 61 | 64 65 72 2d 70 72 65 66 |t lm-hea|der-pref|
|00002650| 69 78 20 30 20 22 5c 5c | 28 5b 5e 09 20 5d 2b 5c |ix 0 "\\|([^. ]+\|
|00002660| 5c 29 22 20 31 20 6c 6d | 2d 6d 61 69 6e 74 61 69 |\)" 1 lm|-maintai|
|00002670| 6e 65 72 20 6c 6d 2d 76 | 65 72 73 69 6f 6e 20 76 |ner lm-v|ersion v|
|00002680| 65 72 73 69 6f 6e 20 61 | 64 64 72 20 70 61 63 6b |ersion a|ddr pack|
|00002690| 61 67 65 20 6d 61 69 6c | 20 6e 69 6c 20 22 20 3c |age mail| nil " <|
|000026a0| 22 20 22 3e 22 20 62 75 | 67 2d 67 6e 75 2d 65 6d |" ">" bu|g-gnu-em|
|000026b0| 61 63 73 20 74 6f 70 69 | 63 20 22 5c 6e 49 6e 20 |acs topi|c "\nIn |
|000026c0| 22 20 22 20 76 65 72 73 | 69 6f 6e 20 22 20 22 22 |" " vers|ion " ""|
|000026d0| 20 22 5c 6e 5c 6e 22 20 | 6d 65 73 73 61 67 65 20 | "\n\n" |message |
|000026e0| 73 75 62 73 74 69 74 75 | 74 65 2d 63 6f 6d 6d 61 |substitu|te-comma|
|000026f0| 6e 64 2d 6b 65 79 73 20 | 22 54 79 70 65 20 5c 5c |nd-keys |"Type \\|
|00002700| 5b 6d 61 69 6c 2d 73 65 | 6e 64 5d 20 74 6f 20 73 |[mail-se|nd] to s|
|00002710| 65 6e 64 20 62 75 67 20 | 72 65 70 6f 72 74 2e 22 |end bug |report."|
|00002720| 5d 20 36 20 28 23 24 20 | 2e 20 39 35 32 31 29 20 |] 6 (#$ |. 9521) |
|00002730| 22 73 42 75 67 20 53 75 | 62 6a 65 63 74 3a 20 22 |"sBug Su|bject: "|
|00002740| 5d 29 0a 28 70 72 6f 76 | 69 64 65 20 28 71 75 6f |]).(prov|ide (quo|
|00002750| 74 65 20 6c 69 73 70 2d | 6d 6e 74 29 29 0a       |te lisp-|mnt)).  |
+--------+-------------------------+-------------------------+--------+--------+